﻿Imports System.Data
Imports System.Data.SqlClient

Public Class frmAperturarCuentaAhorro
    Public IdTiCuenta As Integer
    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub

    Private Sub frmAperturarCuentaAhorro_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_MostrarCuentaAhorro' Puede moverla o quitarla según sea necesario.
        Me.SP_MostrarCuentaAhorroTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_MostrarCuentaAhorro)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_MostrarTipoCuenta' Puede moverla o quitarla según sea necesario.
        Me.SP_MostrarTipoCuentaTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_MostrarTipoCuenta)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarCliente' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarClienteTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarCliente)
        Me.dtpFechaApertura.Text = Today
        Me.txtNumCuenta.Enabled = False
        Call ObtenerNumCuenta()
    End Sub

    Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
        If Me.cboRnpCliente.Text <> "[Vacío]" And Me.cboTipoCuenta.Text <> "[Vacío]" And Me.dtpFechaApertura.Text <> Nothing Then
            Call GuardadCuenta()
        Else
            MessageBox.Show("Debe ingresar toda la información antes de guardar.", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Warning)
            If Me.cboRnpCliente.Text = "[Vacío]" Then
                Me.cboRnpCliente.BackColor = Color.Coral
            ElseIf Me.cboTipoCuenta.Text = "[Vacío]" Then
                Me.cboTipoCuenta.BackColor = Color.Coral
            End If
        End If

    End Sub

    Private Sub GuardadCuenta()
        Try
            SP_MostrarCuentaAhorroTableAdapter.SP_InsertarCuentaAhorro(Me.cboRnpCliente.EditValue, Me.cboTipoCuenta.EditValue, Me.dtpFechaApertura.Text)
            MessageBox.Show("Cuenta de Ahorro Aperturada", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


    Private Sub cboRnpCliente_EditValueChanged(sender As Object, e As EventArgs) Handles cboRnpCliente.EditValueChanged
        Me.cboRnpCliente.BackColor = Color.White
    End Sub

    Private Sub cboTipoCuenta_EditValueChanged(sender As Object, e As EventArgs) Handles cboTipoCuenta.EditValueChanged
        Me.cboTipoCuenta.EditValue = Color.White
    End Sub
    Private Sub ObtenerNumCuenta()
        If varConexion.State = ConnectionState.Open Then
            varConexion.Close()
        End If
        Try
            varConexion.Open()
            Dim cmd As New SqlCommand("select max(NumeroCuenta) + 1 as NumCuenta from CuentaAhorros", varConexion)
            cmd.CommandType = CommandType.Text

            Dim reader As SqlDataReader
            reader = cmd.ExecuteReader
            If reader.Read = True Then
                Me.txtNumCuenta.Text = reader.Item("NumCuenta")
            End If
            varConexion.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class